﻿Public Class TestStructure

    Property strName As String
    Property strValue As String
    Property blnActivated As Boolean

    Public Sub New(ByVal inName As String, ByVal inValue As String, ByVal inActivated As Boolean)
        strName = inName
        strValue = inValue
        blnActivated = inActivated
    End Sub

End Class